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SUMMARY 

The hot corrosion test facility (HCTF) at the NASA Lewis Special 
Projects Laboratory (SPL) is a high-velocity, pressurized burner rig 
currently used to evaluate the environmental durability of advanced 
ceramic materials such as Sic and Si 3 N 4 . The HCTF uses laboratory service 
air which is preheated, mixed with jet fuel, and ignited to simulate the 
conditions of a gas turbine engine. Air, fuel, and water systems are 
computer-controlled to maintain test conditions which include maximum 
air flows of 250 kg/hr (5501bm/hr) , pressures of 100-600 kPa (1-6 atm), 
and gas temperatures exceeding 1500°C (2732°F). 

The HCTF provides a relatively inexpensive, yet sophisticated 
means for researchers to study the high-temperature oxidation of 
advanced materials, and the injection of a salt solution provides the 
added capability of conducting hot corrosion studies. 

INTRODUCTION 

Future jet engines will provide more thrust at greater engine 
efficiency by operating at higher temperatures and using more advanced, 
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lightweight materials such as Sic and Si 3 N 4 for hot-section engine 
components. The environmental durability of such candidates must be 
considered and is best evaluated if testing is conducted under realistic 
conditions, where the materials are subjected to the high temperatures 
and harsh environments encountered in a gas turbine engine. If operating 
in a corrosive environments, the high-temperature corrosion of hot- 
section components then becomes a concern. This process occurs when 
sodi um , either as a fuel impurity or an airborne contaminant, combines 
with sulfur impurities in the fuel to form sodium sulfate (Na 2 S0 4 ) . 
Molten Na 2 S0 4 can condense on hot engine components leading to 
accelerated oxidation and severe corrosion. Degradation by this salt is 
termed "hot corrosion." 

Hot corrosion has been studied by immersion tests, thin salt film 
tests, and burner rig studies. 1 Burner rig tests more closely model the 
harsh, corrosive environments in a gas turbine engine while providing a 
continuous deposition of salt, opposed to the one-time deposition used 
in furnace testing. Two examples of previous studies at NASA Lewis 
involve the effect of hot corrosion on the room temperature four-point 
bend strength of sintered a-SiC. 2>3 In those experiments, test variables 
included 1000°C (1832°F) specimen temperature, 4 atm system pressure, 2 
ppm added sodium (as NaCl) , and 40 hours of exposure time. A detailed 
view of the product layer formed on one sample is shown in Fig. 1, where 
portions of this product were chipped away to examine the interior of 
the layer. Removing the products by HF dissolution revealed a dramatic 
pitting attack of the Sic substrate, shown in Fig. 2. A correlation was 
found between fracture strength and corrosion pit dimensions, and the 
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strength decreased by as much as 25-35% due to the formation of deep 
pits in the Sic. 

Studies like this make rigs such as the HCTF and other 1 atm, mach 
0.3 burner rigs at NASA LeRC very valuable in the development of 
advanced aerospace materials. The purpose of this report is to promote 
awareness of the HCTF, provide corporate documentation of both the 
hardware and software being used, and describe the operation and 
capabilities of the test facility with emphasis on corrosion testing. 

CORROSION TESTING REQUIREMENTS 

At this point, it is helpful to discuss both the factors that 
influence hot corrosion and the significance of the HCTF in such 
studies. The deposition of Na 2 S0 4 and subsequent corrosion is a function 
of temperature and pressure, therefore a burner rig used to study hot 
corrosion must satisfy certain requirements. The HCTF's operating range 
was specifically chosen such that deposition of the salt is predicted to 
occur on the test specimens. 

As stated, hot corrosion occurs when sodium combines with sulfur 
impurities in the fuel to form Na 2 S0 4 . Deposition of Na 2 S0 4 occurs in a 
temperature window bordered by the melting point of the salt (884°C or 
1623 °F) and the dew point which is pressure dependent. The dew point is 
the highest temperature at which the condensed phase of the salt can 
form. A test temperature of 1000°C (1832°F) was targeted because furnace 
tests 4 * 6 have shown rapid kinetics to occur at this temperature. The dew 
point was calculated 7 (see Table I) for various sodium and sulfur 
combinations (jet fuel is typically 0.05% S) at a test pressure of 100 
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kPa (1 atm) . The dew point ranged between 920-970°C (1688-1778°F) for 
0. 5-4.0 ppm of Na, respectively. Higher operating pressures will raise 
the dew point and allow deposition to occur at higher temperatures. As 
a result, testing at higher pressures will more accurately model 
conditions in the engine, and since it raises the dew point, test 
temperatures of 1000°C (1832 °F) can be obtained. Given a test pressure 
of 400 kPa (4 atm) , dew points are on the order of 981-1038 °C (1798- 
1900 °F) , therefore deposition should occur for sodium concentrations 
above 2.0 ppm, as indicated by Table I. 

In summary, the HCTF allows testing at temperatures of 1000 °C 
(1832 °F) or above, but more importantly the capability of being 
pressurized to 4 atm assures Na 2 S0 4 deposition. 


TEST FACILITY SYSTEMS 

The HCTF pictured in Fig. 3 has a number of critical systems which 
must work together to attain desired test conditions. These systems 
include the air, fuel, water, and salt systems which are shown 

s 

schematically in Fig. 4. The combustion process occurs as preheated air 
is mixed with jet fuel and ignited in the combustor. After ignition, a 
salt solution is introduced into the gas stream. The hot gases flow 
downstream passing over the test specimens located in the test section, 
where temperature and pressure is maintained by automated control. 
Before exiting, the hot exhaust gases are quenched with cooling water to 
desired temperature levels. 

air SYSTEM The HCTF uses 800 kPa (120 psig) pressurized air supplied by 
the laboratory central air system. The pressurized air is filtered 
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through a filter assembly and then passes through a venturi flowmeter. 
The mass flow rate is calculated from the pressures, temperature, and 
flow coefficients associated with the venturi. Air flow, which is 
controlled using valve A, can be supplied at rates of 50-250 kg/hr (100- 
550 lbm/hr) , with a typical corrosion test operating at a mass flow rate 
of 150 kg/hr (325 lbm/hr) . The air flow is directed into a preheater 
which increases the air temperature to 260°C (500°F) prior to entering 
the combustor. Preheating allows combustion to occur more efficiently, 
resulting in less soot development and buildup in the combustor. 

The rig is pressurized to higher pressures by closing down exhaust 
valve B. As mentioned, test pressures can be varied between 100-600 kPa 
(1-6 atm) , depending on mass air flow rates. Maximum air flows are 
available only at lower pressures. As discussed, hot corrosion tests are 
typically conducted at 4 atm to raise the dew point of Na 2 S0 4 above 
1000°C ( 1832 °F) . 

FUEL SYSTEM The HCTF can burn Jet-A, JP-4, or JP-5 jet fuel, as well as 
diesel fuel. The jet fuels are supplied from a 19,000 liter (5000 gal) 
underground storage tank while the diesel fuel is supplied from a 
smaller surface tank. Each storage tank is equipped with a low-pressure 
fuel pump and 25-micron filter for delivering fuel to the facility. The 
fuel then passes through a high-pressure pump (1.7 MPa or 250 psig max.) 
in the test cell before being filtered through a second, 10-micron 
assembly and injected into the combustor. 

The amount of fuel burned depends on the desired test temperature. 
Fuel flow is controlled with valve C, which schedules the fuel-to-air 
ratio required to produce the desired temperature. Flow rates, which are 
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measured with a turbine flowmeter, are relatively low with a maximum of 
0.1 1/min (.025 gpm) . A fuel nozzle (80°swirl) sprays atomized fuel into 
the combustor where it is mixed with the combustion air and ignited. The 
available range of fuel-to-air ratios and resulting gas temperatures are 
given in Fig. 5, suggesting only minimal heat loss when compared to 
calculated adiabatic temperatures. As an example, the standard hot 
corrosion test temperature of 1000 °C (1832°F) would require a fuel-to- 
air ratio of approximately 0.024. This corresponds to a fuel flow near 
0.073 1/min (.019 gpm) for the standard mass air flow of 150 kg/hr (325 
lbm/hr) . 

WATER SYSTEM City water (400 kPa or 60 psig) is used to quench the 
combustion air exiting the test section. The hot gases expelled from the 
combustor, noted to reach as high as 1500°C (2732°F) , must be cooled to 
protect the exhaust valve from thermal failure. The water pressure is 
initially boosted using a high-pressure pump (10 MPa or 160 psig max) 
before being filtered through a 25-micron filter. Water flow rates, also 
measured with a turbine flowmeter, are regulated with valve D as the 
cooling water is directed through a spray ring and water jet nozzles 
located before the exhaust valve. A Chrome 1-Alumel thermocouple (type K) 
monitors the exit temperature used to control the water flow. Only a 
flow of 2.0 1/min (.5 gpm) is required to cool the exhaust below 100°C 
(200°F) . 

SALT SYSTEM Salt solutions are injected into the hot gases leaving the 
combustor with an aspirating probe. The salt solution typically consists 
of 2-4 ppm NaCl in distilled water and is supplied from a 20 liter 
teflon tank located in the test cell. Salt flow is controlled with an 
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adjustable pump, capable of delivering a maximum steady flow of 2.0 
1/hr. Current hot corrosion tests operate at a flow near 0.25 1/hr. Salt 
flow is indicated by a load cell which monitors the weight change of the 
salt tank. The salt solution is atomized within the aspirator probe and 
injected into the combustor. 

TEST FACILITY CONFIGURATIONS 

For discussion purposes, the HCTF has two primary areas of 
concern, the combustor and the test section (Fig. 6) . Maintenance is 
often required in these areas due to their high-temperature nature and 
typically involves the replacement of certain components or the 
installation of test specimens. This section of the report focusses on 
the configuration of these two areas, discussing both the components and 
instrumentation which are an integral part of each area. 

In Fig. 7, preheated air enters the combustor through a 1.9 cm 
(3/4 in) inlet. Here, a thermocouple (type K) monitors the inlet 
temperature used to control the preheater. Combustion pressure is also 
monitored. The air is forced through a swirler and mixed with the 
atomized fuel in the combustor liner. The fuel is sprayed from a fuel 
nozzle found in the center of the co-rotating swirler. Gases in the 
primary zone are ignited with a spark generated from an ignitor which 
extends through an opening in the liner. The liner, fabricated from 
Inconnel 601 material, is cooled with bypass air flowing down the 
outside diameter. This cooling air eventually dumps into the secondary 
zone through perforations in the liner and is added to the combustion 
process. The salt aspirator and a platinum-platinum/ (13%) rhodium 
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thermocouple (type R) also extend through an opening into the liner. The 
combustion thermocouple monitors the flame temperature inside the liner 
and is used to detect a flameout condition. 

As the combustor transitions into the test section, the hot gases 
accelerate through a nozzle and into the flame tube. Gas velocities 
typically reach 45-60 m/s (150-200 ft/sec) but can exceed 300 m/s (1000 
ft/ sec) . Two test specimens (2.54 cm x 0.64 cm x 0.32 cm) are loaded 
horizontally through openings in the flame tube. The two specimens are 
held by a set of lava grips which are positioned by a lava specimen 
holder clamped to the flame tube. A cross section of this arrangement is 
shown in Fig. 8. A thermocouple (type R) is positioned on center between 
the two test specimens to monitor the test temperature and to control 
fuel flow. A flange on either side can be removed to gain easy access to 
the test section, which along with the transition section is packed with 
ceramic fiber insulation to minimize heat losses. A second set of test 
specimens can be assembled downstream in the test section (see Fig. 6) , 
Here, the thermocouple is for information purposes only and temperatures 
are reduced approximately 25°C (50°F) due to heat losses. 

DATA ACQUISITION AND CONTROL SYSTEM 

The HCTF is equipped with an automated data acquisition and 
control system which is responsible for collecting data and modulating 
the control valves of the air, fuel, and water supplies. The rig is 
operated from the control room (Fig. 9) , containing both the computer 
system and control panel. The computer system is integrated with the 
manual controls which include all the "hard-wired" permissives and 
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safety interlocks which must be satisfied before computer operation of 
the control valves is permitted. 

The computer interfaces with a data acquisition and control unit 
to manage data flowing between the test facility and control room. An 
internal voltmeter collects data from pressure, temperature, and flow 
sensors . The data is processed by software and displayed as shown in 
Fig. 10, along with test parameter setpoints and valve positions. As 
setpoints are changed with the special function keys, control 
subroutines compare the data with corresponding setpoints and 
automatically make any necessary corrections to valve positions. Data 
scanning and setpoint control occurs at 0. 5-1.0 Hz. The test parameters 
available for such closed-loop feedback and control include mass air 
flow, specimen temperature, and system pressure. 

The software was developed internally at NASA LeRC and is listed 
in Appendix A for documentation purposes . In addition to data 
acquisition and control, the software also provides automated 
documentation. Data may be printed out or stored on a hard disk at user- 
defined intervals. Furthermore, a test log (Fig. 11) is used to store 
the test conditions and specimen data of individual test runs. These 
test conditions include a programmable "real-time" clock which adds the 
capability of unattended operation. 

SAFETY FEATURES 

The HCTF was designed with safety interlocks which prevent the rig 
from reaching a potentially unsafe or destructive mode. The HCTF's 
control logic will initiate a shutdown to safely handle any critical 
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situation. As mentioned, the computer works together with these "hard- 
wired" features, requiring that certain permissives are satisfied before 
computer operation of the control valves is permitted. 

The most important parameters monitored are temperature and 
pressure. As previously mentioned, the HCTF was designed with a 
preheater which can only be operated if sufficient air flow is indicated 
by a pressure switch located at the venturi meter. Even as sufficient 
air flow is present, ignition is permitted only when the preheated air 
tempe r at ur e is between assigned low and high limits. Other critical 
parameters which either must be within limits before ignition or during 
operation include combustor temperature, exit temperature, and system 
pressure. The upper and lower limits are given in Table II. 

In the event that any critical limits are exceeded, an appropriate 
meter relay will automatically close the fuel supply solenoid valve and 
disable computer control of the fuel. Indicator lights in the control 
panel are used to provide diagnostic information. Therefore, any loss of 
air flow, mechanical malfunction, or operator control error will result 
in shutdown of the rig. 

Although having a secondary logic priority, the computer will also 
initiate the shutdown of the facility under certain circumstances. If 
sensor data is not within software-defined limits, closed loop control 
of the setpoints is no longer possible. Therefore, the control valve to 
the fuel is closed, triggering the "hard-wired" shutdown. A diagnostic 
message is printed to indicate which parameter caused the shutdown. 


10 



CONCLUSIONS 


The SPL hot corrosion test facility at NASA Lewis is a relatively 
simple, easy-to-operate resource for providing researchers with valuable 
information on advanced, high-temperature materials. Low maintenance and 
fuel costs make the facility attractive economically, and the rig's 
flexibility makes it useful for both oxidation and corrosion studies. 
The HCTF has been helpful in numerous programs, evaluating materials for 
aerospace, automotive, and other applications. Researchers interested in 
using the HCTF should contact the Facility Manager, Environmental 
Durability Branch, or the Materials Division. 
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APPENDIX A 


The software listed on the following pages has been included to 
serve as documentation for the control and operational procedures used 
in this facility. As seen before, test facilities can experience periods 
of dormancy due to programmatic or personnel changes. In such a case, 
this record could prove critical in attempts to renew operations of the 
facility after any such period. 



10 i PROGRAM "X1PGM" 

20 i 4.0 ATMOSHERES, HOT CORROSION BURNER RIG 
30 ! CELL #1-BLDG. 24 
40 OPTION BASE 1 

50 MASS STORAGE IS ":CS80,805" 

60 PRINTER IS 1 

70 SYSTEM PRIORITY 9 

80 GOSUB Clear screen 

90 PRINT TABXY (1,5) 

100 PRINT " 

110 PRINT " 

120 PRINT " 

130 PRINT " 

140 PRINT " 

150 PRINT " 

160 PRINT " 

170 PRINT " 

180 PRINT " 

190 PRINT " 

200 PRINT " 

210 PRINT " 

220 WAIT 4 

230 DIM Chan_label$ (40) [14] ,Display_format$ (40) [5] ,Sensor$ (40) [5] 

240 DIM Unit$(40) [5] ,Disp$ (12) [80] ,L$[10] ,A$[5] ,B$[5] ,Title$[9] ,Fuel$[6] 

250 DIM Ans$ [ 25 ] , Run_time$ [ 11 ] , Target_time$ [ 15 ] , Elap_time$ [ 15 ] 

260 DIM Air_control$ [ 6 ] , Back_control$ [ 6 ] , Fuel_control$ [ 6 ] , Blank$ [ 80 ] 

270 DIM Specimen$(4) [15] ,Install$(4) [15] ,Tot_time$ (4) [15] 

280 DIM Volt (30) ,Dval (40) ,K(13) ,R(13) ,Hi_lim(40) ,Low_lim(40) 

290 DIM P ( 7 , 5 ) , Amt ( 5 ) , P_prop ( 5 ) 

300 REAL Vref ,Volt_coxap, Vt, Temp, Err, Out, Prop, Sp_fract ion 

310 REAL Ts , Trun , Trun_start , Prev_ts , Tp , Fuel_gal , Target_temp 
320 REAL Fue l_sp , Quench_sp , Air_sp , Back_sp , Setpo int 

330 REAL Spec_t emp_sp , Quench_temp_sp , Air_f low_sp , Back_ps i_sp 
340 REAL C,F,Tair,Roe,Wair_cf ,Mu,Re_cf ,Cf 

350 INTEGER I , J, N,X, Z , Y, Print_order ( 15) ,Ignite_ind,Screen(12,2) ,Ans,Pid_ind 
360 INTEGER Nlines , Nlines_page , Hot_ind , Prt_int , Out_lim_ind , Cntr l_ind , Pid 
370 INTEGER Hours , Minutes , Tot_hours , Tot_minutes , Target_minutes 
380 INTEGER Airout , Backout , Quenchout , Fuelout 

390 Main_menu_keys : ! 

400 PRINTER IS 1 

410 OFF KEY 

420 ON KEY 0 LABEL " RUN RIG ",10 GOTO Main 

430 ON KEY 2 LABEL " TEST SETUP ",10 GOTO Setup 

440 Menu_display: ! 

450 GOSUB Clearscreen 

460 PRINT TABXY (1,5);" MAIN MENU" 

470 PRINT TABXY (1,8) CHOOSE DESIRED OPTION" 

480 PRINT TABXY (1, 10) ;" K0: DATA AQUISITION " 

490 PRINT TABXY (1, 12) ;" K2: TEST SETUP" 

500 Echo: ! 

510 GOTO Echo 

520 !!!!!!U!l!!!!!!! TEST SETUP SUBPROGRAM i 1 1 i ! ! ! ! 1 ! ! ! 1 ! ! ! ! ! 1 1 ! ! ! 

530 Setup: ! 

540 Blank$=" 

n 

550 GOSUB Read_common 

560 GOSUB Clearscreen 

570 GOSUB Test_info 

580 PRINT TABXY (1,18) ; "ENTER INDEX OF INFORMATION TO BE CHANGED" 

590 INPUT " ( 1=TEST PARAMETERS 2=SPECIMEN DATA 0=EXIT)",N 


****************************************** 


* *•* 

* X1PGM - SPL HCTF DATA ACQ. *" 

* LATEST REVISION: 1/93 *" 

* **» 

* THIS PROGRAM IS THE PROPERTY OF *" 

* THE NASA ENVIROMENTAL DURABILITY *" 

* BRANCH. MAINTENANCE BY UNAUTHOR- *" 

* I ZED PERSONNEL IS PROHIBITED. *" 

* *•» 

* CONTACT: C. ROBINSON X-5547 *" 


****************************************** 
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600 SELECT N 

610 CASE 1 

620 PRINT TABXY( 1,18) ;Blank$ 

630 INPUT "ENTER INDEX FOR TYPE OF TEST (l=OXIDATION 2=CORROSION) " , I 

640 IF 1=1 THEN Title$="OXIDATION" 

650 IF 1=2 THEN Title$=" CORROSION” 

660 INPUT "ENTER INDEX FOR FUEL TYPE (1=JET A 2=DIESEL) ” , I 

670 IF 1=1 THEN Fuel$="JET A ” 

680 IF 1=2 THEN Fuel$="DIESEL" 

690 INPUT "ENTER TARGET TEMP IN DEG F" , Target_temp 

700 LINPUT "ENTER TEST DURATION (xxHRS , xxMIN) " , Target_time$ 

710 LINPUT "ENTER TIME ELAPSED (xxHRS, XXMIN) " ,Elap_time$ 

720 GOTO 560 

730 CASE 2 

740 PRINT TABXY(1,18) ;Blank$ 

750 INPUT "ENTER POSITION NO. OF SPECIMEN TO BE CHANGED" , I 

760 GOSUB Spec_change 

770 GOTO 560 

780 CASE 0 

790 GOSUB Write_common 

800 GOTO Main_menu_keys 

810 CASE ELSE 

820 BEEP 

830 GOTO 580 

840 END SELECT 

850 Spec_change: ! 

860 LINPUT "ENTER 8 CHARACTER PART NO. OR -l=NO CHANGE -2=EMPTY" , Ans$ 

870 IF Ans$="-2" THEN 

880 Specimen$ (I) ="EMPTY" 

890 Install$(I)=" " 

900 Tot_time$ ( I ) =" 0 HRS,0 MIN" 

910 GOTO 1050 

920 END IF 

930 IF Ans$="-1" THEN 

940 GOTO 980 

950 ELSE 

960 Specimen$(I)=Ans$ 

970 END IF 

980 LINPUT "ENTER DATE INSTALLED (DD MMM YYYY) OR -l=NO CHANGE" ,Ans$ 

990 IF Ans$="-1" THEN 

1000 GOTO 1040 

1010 ELSE 

1020 Install$(I)=Ans$ 

1030 END IF 

1040 LINPUT "ENTER TEST TIME TO DATE ( xxHRS, xxMIN) " ,Tot_time$ (I) 

1050 RETURN 

1060 Test_info: ! 

1070 PRINT "SPL HOT CORROSION TEST FACILITY - CURRENT TEST SETUP" 

1080 PRINT 

1090 PRINT "TEST TYPE: "&Title$ 

1100 PRINT "FUEL TYPE: "&Fuel$ 

1110 PRINT "TARGET TEMP IN DEG F: "&VAL$ (Target_temp) 

1120 PRINT "CURRENT TEST TIME REQUEST: "&Target_time$ 

1130 PRINT " TIME ELAPSED: "&Elap_time$ 

1140 PRINT 

1150 PRINT 

1160 PRINT " POSITION #1 POSITION #2 POSITION #3 

POSITION #4" 

1170 PRINT 

1180 PRINT USING 1210;"SPEC NAME: " , Specimen$ (1) , Specimen$ (2) , Specimen$ (3) , Spe 
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cimen$ (4) 

1190 PRINT USING 1220; "INSTALLED: " , Install$ (1) , Install$ (2) , Install$ (3) , Instal 
1$(4) 

1200 PRINT USING 1220;"TEST TIME: " , Tot_time$ (1) , Tot_time$ (2 ) , Tot_time$ (3) , Tot » 
_time$ (4) 

1210 IMAGE 11A,4X,8A, 10X, 11A, 7X, 11A, 7X, 11A 
1220 IMAGE 11A, 4X, 11A, 7X, 11A, 7X, 11A, 7X, 11A 
1230 RETURN 

1240 !!!!!!!!!!!!!!!!!!!! MAIN SUBPROGRAM i !!!!!!!!!!!!! i !!! M ! H !! ! 

1250 Main: ! 

1260 CLEAR 705 

1270 GOSUB Read_coef 

1280 GOSUB Read_label_lim 

1290 GOSUB Read_common 

1300 GOSUB Read_pid_val 

1310 GOSUB Screen_setup 

1320 GOSUB Build_string 

1330 RESTORE 1370 

1340 FOR 1=1 TO 12 

1350 READ Print_order (I) 

1360 NEXT I 

1370 DATA 24,23,31,32,25,26,2,8,6,7,11,29 
1380 Reset: t ! 

1390 LINPUT "ENTER TODAY'S DATE AND TIME (DD MMM YYYY HH:MM: SS) " , Ans$ 

1400 SET TIMEDATE DATE (Ans$ [1, 11] ) +TIME(Ans$ [13 , 20] ) 

1410 PRINTER IS 701 

1420 PRINT CHR$ ( 12 ) 

1430 Nlines=0 

1440 GOSUB Print_header_l 

1450 PRINTER IS 1 

1460 Init_var iables : ! 

1470 Target_minutes=VAL (Target_tiroe$ [1,2]) *60+VAL (Target_tiroe$ [ 7 , 8 ] ) -VAL(Elap_ 

time$ [1,2]) *60-VAL (Elap_time$ [7,8]) 

1480 Prt_int=300 

1490 Fuel_sp=0. 

1500 Quench_sp=50 . 

1510 Air_sp=50. 

1520 Back_sp=50. 

1530 GOSUB Air_OUt 

1540 GOSUB Back_OUt 

1550 GOSUB Quench_out 

1560 Spec_temp_sp=-999 . 

1570 Air_flow_sp=-99.9 

1580 Quench_t emp_sp=2 0 0 . 

1590 Back_psi_sp=-99.9 

1600 Fuel_control$="OPEN" 

1610 Air_control$="OPEN" 

1620 Back_control$="OPEN" 

1630 Blank$=" 

1640 Hours=o 

1650 Minutes=0 

1660 Tot_hours=0 

1670 Tot_xninutes=0 

1680 Hot ind=2 * 

1690 IgnXte_ind=2 

1700 Out_lim_ind=o 

1710 Trun=0. 

1720 Run_time$="0 HRS,0 MIN" 

1730 Nlines_page=60 


16 



1740 Fuel_gal=0. 
1750 MAT Volt= (0.) 

1760 MAT Dval= (0.) 


1770 Sof t_keys : ! 

1780 GOSUB Clearscreen 


1790 

ON 

KEY 

0 

LABEL 

If 

SHUT DOWN " , 10 

1800 

ON 

KEY 

1 

LABEL 

tl 

START FUEL ",10 

1810 

ON 

KEY 

2 

LABEL 

It 

% AIR VALVE" ,10 

1820 

ON 

KEY 

3 

LABEL 

II 

% BACK VALVE", 10 

1830 

ON 

KEY 

4 

LABEL 

It 

% H20 VALVE", 10 

1840 

ON 

KEY 

5 

LABEL 

It 

SET INTERVALS", 10 

1850 

ON 

KEY 

6 

LABEL 

tl 

",10 

1860 

ON 

KEY 

7 

LABEL 

It 

SET PID ", 10 

1870 

ON 

KEY 

8 

LABEL 

It 

SET CONTROL " , 10 

1880 

ON 

KEY 

9 

LABEL 

II 

PRINT DUMP ",10 

1890 

Init 

scanner : ! 




GOSUB Start fuel 


GOSUB invalid 


GOTO Control_setup 


1900 OUTPUT 705 ; "AF0AL29AC0VT4VN30VA0VS1VD5SD0AE1" 


1910 OUTPUT 705;"VT3" 

1920 Tp=TIMEDATE • 

1930 Ts=TIMEDATE 

1940 i HI!!!'!!!!! 1 i !!!!!! I MAIN PROGRAM LOOP llilllliilililil 
1950 Scan: ! 

1960 Prev_ts=Ts 

1970 Ts=TIMEDATE 

1980 OUTPUT 705; "VS" 

1990 SYSTEM PRIORITY 15 

2000 FOR 1=1 TO 30 

2010 ENTER 705 USING "#,K";Volt(I) 

2020 NEXT I 

2030 SYSTEM PRIORITY 9 

2040 OUTPUT 705;"VT3" 

2050 GOSUB Convert 

2060 GOSUB Calculate 

2070 GOSUB Check 

2080 GOSUB Control 

2090 GOSUB Status 

2100 GOSUB Display 

2110 IF Prt_int=-3 THEN GOTO 2160 

2120 IF Ts-Tp>Prt_int THEN 

2130 Tp=Ts 

2140 GOSUB Print_data 

2150 END IF 

2160 GOSUB Fuel_COUht 

2170 GOTO Scan 

2180 iilillillllliliiliii PRIMARY SUBROUTINES !!!!!!!!!!!!!!!! 
2190 Convert: ! 

2200! HP 3497 ANALOG INPUT CHANNELS/SLOT #0 
2210 Vref=Volt (20) 

2220 FOR 1=1 TO 4 ! CHAN A0-A3 

2230 GOSUB Type_k 

2240 NEXT I 

2250 FOR 1=5 TO 8 ! CHAN A4-A7 

2260 GOSUB Type_r 

2270 NEXT I 

2280 1=11 ! CHAN B0 

2290 GOSUB Type_k 

2300! HP 3497 ANALOG INPUT CHANNELS/ SLOT #1 
2310 Dval(21)=6.689*Volt(21) *1000-. 428 

2320 Dval (22) =. 318*Volt (22) *1000-. 010 
2330 


! CHAN A0 
! CHAN A1 
! CHAN A2 


i i m i i 


M i i i i 


VENTURI PSI 
VENTURI DP 
FUEL FLOW 
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2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
XCEEDED 
2880 
2890 
2900 
2910 
2920 


t 


MUST ZERO CALCULATED 


1 DC to Hz (800 HZ) 
VALUE TO TO Y-INTERCEPT 


Dval (23) =Volt (23) *160 
! IF Dval (23) <10 THEN 
! Dval (23) =0. 

! GOTO 2400 

! END IF 

Dval (23 ) = (9 . 13E-9*Dval (23) *2+4 . 41E-5*Dval (23) +. 0090356) *60 
Dval (24) =16 . 378*Volt (24) *1000-4 . 569 
Dval (25) = (3 . 614*Volt (25) *1000-. 148) +14 . 7 
Dval (26) = (4 . 007*Volt (26) *1000+. 008) +14 . 7 
Dval (27) =7. 975*Volt (27) *1000-1.412 


Hz to GPH 


CHAN 

A3 

- FUEL 

PRESS 

CHAN 

A4 

- COMB 

PRESS 

CHAN 

A5 

- TEST 

PRESS 

CHAN 

A6 

- H20 

PRESS 

CHAN 

A7 

- H20 

FLOW 

! DC 

to 

HZ (1600 HZ) 

! Hz 

to 

GPM 


CHAN 

A8 

- LOAD 

CELL 


Dval ( 28 ) =Volt ( 28 ) *320 
Dval (28) =. 000517 *Dval (28) +.003 
Dval (29) =Volt (29) 

RETURN 
Type_k : I 

Volt_comp=K ( 1 ) +Vr ef * (K ( 2 ) +Vr ef *K ( 3 ) ) 

Vt=Volt_comp+Volt ( I ) 

Temp=K (8 ) +vt* (K ( 9 ) +Vt* (K ( 10) +Vt* (K ( 11) +Vt* (K ( 12 ) +Vt* (K ( 13 ) ) ) ) ) ) 
Temp=K ( 4 ) +Vt* (K ( 5 ) +Vt* (K ( 6 ) +Vt* (K ( 7 ) +Vt*Temp) ) ) 

Dval ( I ) =Teap*l . 8+3 2 
RETURN 
Type_r: ! 

Volt_comp=R ( 1 ) +Vref * (R ( 2 ) +Vr ef *R ( 3 ) ) 

Vt=Vo lt_comp+Volt ( I ) 

Vt=Vt*l . E+6 

Temp=R ( 8 ) +Vt* (R(9) +Vt* (R( 10) +Vt* (R(ll) +Vt* (R( 12 ) +Vt* (R( 13 ) ) ) ) ) ) 
Temp=R ( 4 ) +Vt* (R ( 5 ) +Vt* (R ( 6 ) +Vt* (R ( 7 ) +Vt*Temp) ) ) 

Dval (I) =Temp*l . 8+32 
RETURN 
Check: ! 

FOR Z=1 TO 11 

IF Dval(Z)<0. THEN Dval(Z)=0. 

IF Dval (Z) >9999. THEN Dval (Z) =9999 . 

NEXT Z 

FOR Z=21 TO 32 

IF Dval(Z)<0. THEN Dval(Z)=0. 

SELECT Display_format$ (Z) 

CASE "DDD.D" 

9 THEN Dval (Z) =999. 9 


IF Dval (Z) >999. 

CASE "DD.DD" 

IF Dval (Z) >99. 99 THEN 
CASE "D.DDD” 

IF Dval (Z) >9. 999 THEN 
END SELECT 


Dval (Z) =99. 99 
Dval (Z) =9. 999 


NEXT Z 
RETURN 
Limits : ! 

IF Dval ( J) <Low_lim( J) OR Dval ( J) >Hi_lim(J) THEN 
GOSUB Print_data 
PRINTER IS 701 
X=2 

GOSUB Turn_page 

PRINT USING "8A, 2X, 14A, 34A" ;TIME$ (TIMEDATE) , Chan_label$ ( J) 
A HI /LOW LIMIT!” 

PRINT 

Nlines=Nlines+2 
PRINTER IS 1 

Out_l im_ind=Out_l im_ind+ 1 
IF Out lim ind>4 THEN 


" DATA HAS E 
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2930 

2940 

2950 

2960 

2970 

2980 

2990 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

3120 

3130 

3140 

3150 

3160 

3170 

3180 

3190 

3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

3280 

3290 

3300 

3310 

3320 

3330 

3340 

3350 

3360 

3370 

3380 

3390 

3400 

3410 

3420 

3430 

3440 

3450 

3460 

3470 

3480 

3490 

3500 

3510 

3520 


PRINTER IS 701 
X=3 

GOSUB Turn_page 

PRINT USING "8A, 2X, 21A" ;TIME$ (TIMEDATE) , "5 CLOSED LOOP ERRORS!” 
GOSUB End_sequence 
GOTO Restart 
ELSE 

GOTO Restart 
END IF 
END IF 
RETURN 

Calculate: ! 

! COMB AIR MASS FLOW RATE 

C=l-(Dval(22) / (Dval (21) +14 . 7) ) 

Tair=Dval ( 1 ) +4 59 . 7 

Mu=32 . 1741* (2 . 270E-8* (Tair A l . 5/ (Tair+198.6) ) ) 

Roe=144*Dval (21) / (53.35*Tair) 

IF C=1 OR Mu=0 . OR Roeco. OR Dval(22)<0. THEN 
Dval (31) =0. 

GOTO 3230 
END IF 

F= (C A 1. 42857*3. 5* ((1-C A . 28571) / (1-C) )*(. 79241/ (1-.20759*C A 1. 42857) ) ) A .5 
Wair_cf=.52502*F*.675 A 2*(Roe*Dval(22) ) A .5 
Re_cf=(48*Wair_cf/ (3 . 14*. 675*Mu) ) / 100000 
IF Re_cf>1.73 THEN 

Cf=l .07594+. 0021752*Re_cf 
ELSE 

Cf=l. 12381-. 05719*Re_cf+.017205*Re_cf A 2 
END IF 

Dval(31)=3600*Cf*Wair_cf 
! FUEL/AIR RATIO 

IF Dval ( 31) =0. THEN 
Dval (32) =0. 

ELSE 

Dval (32) =Dval (23) *6 . 74 /Dval (31) 

END IF 
' SETPOINTS 

Dval (33) =Air_f low_sp 
Dval (34) =Spec_texnp_sp 
Dval (35) =Back_ps i_sp 
Dva 1(36) =Quench_temp_sp 
Dva 1(37) =Air_sp 
Dval (38) =Fuel_sp 
Dval (39) =Back_sp 
Dval (40) =Quench_sp 
RETURN 

Fuel_count : ! 

IF lgnite_ind=0 THEN GOTO 3440 
IF Dval (23) <0 THEN Dval(23)=0. 

IF Dval (23) >Hi_l ixn ( 2 3 ) THEN Dval(23)=0. 

Fuel_gal=Fuel_gal+Dval (23) * (Ts-Prev_ts) /3600 
RETURN 
Status: 1 

IF Dval (6) >Target_temp-50. AND Ignite_ind=l THEN 
SELECT Hot_ind 
CASE 0 

Hot_ind=l 

Trun_start=TIMEDATE 
GOSUB Print_data 
CASE 1 


19 



3530 

3540 

3550 

3560 

3570 

3580 

3590 

3600 

3610 

3620 

3630 

3640 

3650 

3660 

3670 

3680 

3690 

3700 

3710 

3720 

3730 

3740 

3750 

3760 

3770 

3780 

3790 

3800 

3810 

3820 

3830 

3840 

3850 

3860 

3870 

3880 

3890 

3900 

3910 

3920 

3930 

3940 

3950 

3960 

3970 

3980 

3990 

4000 

4010 

4020 

4030 

4040 

4050 

4060 

4070 

4080 

4090 

4100 

4110 

4120 


Trun=Trun+ (TIMEDATE-Trun_start) 

Tr un_star t=T IMED ATE 
Minutes=Trun DIV 60 
Hours=Minutes DIV 60 
Minutes=Minutes MOD 60 
Run_time$ [1,2] =VAL$ (Hours ) 

Run_time$ [7,8] =VAL$ (Minutes) 

IF Trun DIV 60=Target_minutes THEN 
PRINTER IS 701 
X=3 

GOSUB Turn_page 

PRINT USING M 8A, 2X, 15A" ;TIME$ (TIMEDATE) , "TEST COMPLETED i " 

GOSUB End_sequence 
END IF 
CASE 2 

PRINTER IS 701 
X=3 

GOSUB Turn_page 

PRINT USING '’8A, 2X, 14A" ;TIME$ (TIMEDATE) , "STATUS ERRORS!” 

GOSUB End_sequence 
END SELECT 
ELSE 

IF Dval(8)>500 THEN 
SELECT Ignite_ind 
CASE 0 

Ignite_ind=l 
Hot_ind=0 
Quench_sp=9 5 . 

GOSUB Quench_out 
PRINTER IS 701 
X=3 

GOSUB Turn_page 

PRINT USING "8A, 2X, 21A” ;TIME$ (TIMEDATE) , "RIG HAS BEEN IGNITED!” 
PRINT USING "10X, 31A” ; "NEW H20 VALVE SETPOINT IS 95 %." 

PRINT 

Nlines=Nlines+3 
GOSUB Print_data 
PRINTER IS 1 

PA CT? 1 

IF Hot_ind=l THEN 
Hot_ind=0 
GOSUB Print_data 
END IF 
CASE ELSE 
GOTO 4110 
END SELECT 
ELSE 

IF Ignite_ind=l THEN 
PRINTER IS 701 
X=3 

GOSUB Turn_page 

PRINT USING "8A, 2X, 18A" ;TIME$ (TIMEDATE) , "FLAMEOUT DETECTED ! " 
GOSUB End_sequence 
ELSE 

GOTO 4110 
END IF 
END IF 
END IF 
RETURN 
Displays ! 
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4130 GOSUB Bui ld_str ing 

4140 PRINT TABXY(26,1) ;"SPL HOT CORROSION TEST FACILITY" 

4150 PRINT TABXY( 1,2) ;Blank$ 

4160 PRINT " ******* rig PARAMETERS *******" 

4170 FOR 1=1 TO 8 
4180 PRINT Disp$(I) 

4190 NEXT I 

4200 PRINT TABXY( 1,12) ;Blank$ 

4210 PRINT " ******* CONTROL SECTION ******" 

4220 FOR 1=9 TO 12 
4230 PRINT Disp$(I) 

4240 NEXT I 

4250 PRINT TABXY ( 1 , 18 ) ; Blank$ 

4260 DISP USING "8A,5X, 6A, DD.DD" ;TIME$ (TIMEDATE) , "CYCLE=" ,Ts-Prev_ts 
4270 OUTPUT 705;"AO4, 0, "&VAL$ (INT (Dval (32) *2000) ) 

4280 RETURN 

4290 J ! ! !i 1 1 i i !! 1! ! ! ! ! J !! ! CLOSED LOOP CONTROL Ill'iililililllililll 
4300 Control: ! 

4310 IF Fue l_contr ol $= " TEMP " THEN 

4320 J=6 

4330 GOSUB Limits 

4340 GOSUB Control_loop 

4350 GOSUB Fuel_out 

4360 END IF 

4370 IF Air_control$="FLOW" THEN 

4380 J=3 1 

4390 GOSUB Limits 

4400 GOSUB Control_loop 

4410 GOSUB Air_out 

4420 END IF 

4430 IF Back_contr o 1 $=" PRESS " THEN 

4440 J=26 

4450 GOSUB Limits 

4460 GOSUB Control_loop 

4470 GOSUB Back_out 

4480 END IF 

4490 RETURN 

4500 Control_loop: ! 

4510 SELECT J 

4520 CASE 6 ! SPEC TEMP 

4530 Err=Dval (34 ) “Dval ( 6 ) 

4540 Pid=l 

4550 Sp_fraction=Fuel_sp/100 

4560 GOSUB Pid 

4570 IF 0ut<Low_lim(38)/100. THEN 

4580 0ut=Low_lim(38)/100. 

4590 END IF 

4600 Fuel_sp=0ut*100 

4610 IF Fuel_sp>Hi_lirn (38) THEN Fuel_sp=Hi_lim(38) 

4620 CASE 31 i AIR MASS FLOW 

4630 Err=Dval (33) -Dval (31) 

4640 Pid=2 

4650 Sp__fraction=Air_sp/100 

4660 GOSUB Pid 

4670 IF 0ut<Low_lim(37)/100. THEN 

4680 0ut=Low_lim(37)/100. 

4690 END IF 

4700 Air_sp=out*100 

4710 IF Air_sp>Hi_lim ( 37 ) THEN Air_sp=Hi_lim(37) 

4720 CASE 26 ! TEST PRESS 
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4730 Err=Dval(35) -Dval(26) 

4740 Pid=3 

4750 Sp_fraction=Back_sp/100 

4760 GOSUB Pid 

4770 Out=Sp_fraction+ (Sp_fract ion-Out) 

4780 IF Out<Low_lim(39) /100 THEN 

4790 0ut=Low_lim(39)/100 

4800 END IF 

4810 Back_sp=0ut*100 

4820 IF Back_sp>Hi_lim(39) THEN Back sp=Hi lim(39) 

4830 END SELECT ~ 

4840 RETURN 
4850 Pid: ! 

4860 IF Err<=-P(3,Pid) THEN 

4870 Prop= ( Err+p ( 3 , Pid) ) *P ( 4 , Pid) -P ( 3 , Pid) *P ( 2 , Pid) 

4880 ELSE 

4890 IF Err<P(3,Pid) THEN 

4900 Prop=Err*P(2,Pid) 

4910 ELSE 

4920 Prop=(Err-P(3,Pid) ) *P(5,Pid)+P(3,Pid) *P(2,Pid) 

4930 END IF 

4940 END IF 

4950 Amt (Pid) =Sp_fraction+Prop* (Ts-Prev_ts) *P (7 , Pid) 

4960 IF Amt (Pid) >P ( 1 , Pid) THEN Amt(Pid)=P(l,Pid) 

4970 IF Amt (Pid) <-P ( 1 , Pid) THEN Amt (Pid)=-P(l, Pid) 

4980 Out=Prop+Amt (Pid) + ( (Prop-P_prop(Pid) ) / (Ts-Prev ts) ) *P(6,Pid) 

4990 IF Out>l THEN Out=l. 

5000 P_prop(Pid)=Prop 
5010 RETURN 

5020 ! i !!!! i il II I !!!!!!!!<! i I P.I.D. VALUES ! !! !!!! I !!!!! 1 • iililii! ! 

5030 Pid_parm: ! 

5040 GOSUB Clearscreen 
5050 PRINT 
5060 PRINT 

5070 PRINT "CURRENT CLOSED LOOP PARAMETERS" 

5080 PRINT 

5090 PRINT "1. SPECIMEN TEMP CONTROL OF FUEL VALVE" 

5100 PRINT "2. MASS AIR FLOW CONTROL OF AIR VALVE" 

5110 PRINT "3. SYSTEM PRESS CONTROL OF BACK PSI VALVE" 

5120 INPUT "ENTER INDEX OF PARAMETER (0 TO QUIT)", Index 
5130 IF lndex=0 THEN GOTO Restart 
5140 SELECT Index 

5150 CASE 1 I SPECIMEN TEMP 

5160 Pid_ind=l 

5170 GOSUB Pid_val_input 

5180 CASE 2 ! AIR FLOW 

5190 Pid_ind=2 

5200 GOSUB Pid_val_input 

5210 CASE 3 ! SYSTEM PRESS 

5220 Pid_ind=3 

5230 GOSUB Pid_val_input 

5240 END SELECT 

5250 GOTO Restart 

5260 Pid_val_input: ! 

5270 GOSUB Clearscreen 
5280 PRINT 
5290 PRINT 
5300 SELECT Pid_ind 
5310 CASE 1 

5320 PRINT TABXY (3,1);” SPECIMEN TEMPERATURE " ; 
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5330 CASE 2 

5340 PRINT TABXY (3,1) ; "MASS AIR FLOW "; 

5350 CASE 3 

5360 PRINT TABXY (3,1);*' SYSTEM PRESSURE " ; 

5370 END SELECT 

5380 PRINT "CONTROL LOOP PARAMETERS" 

5390 PRINT 

5400 PRINT "1) RESET LIMIT=" ;P ( 1, Pid_ind) 

5410 PRINT "2) MID-BAND GAIN=";P(2,Pid_ind) 

5420 PRINT "3) 1/2 MID-BAND WIDTH=" ;P (3 ,Pid_ind) 

5430 PRINT "4) LOW BAND GAIN=" ;P(4,Pid_ind) 

5440 PRINT "5) HI BAND GAIN=" ;P (5 , Pid_ind) 

5450 PRINT "6) RATE CONSTANT=";P(6,Pid_ind) 

5460 PRINT "7) RESET CONSTANT^" ;P (7 , Pid_ind) 

5470 PRINT 

5480 PRINT TABXY (1, 18) ; "ENTER INDEX OF PARAMETER TO BE CHANGED" 

5490 INPUT "(0 TO QUIT, OR -1 TO RECALL LAST STORED SET) ", Index 

5500 IF lndex>0 THEN 

5510 INPUT "ENTER NEW VALUE" , P (Index, Pid_ind) 

5520 GOTO Pid_val_input 

5530 END IF 
5540 IF Index=-1 THEN 
5550 GOSTJB Read_pid_val 

5560 GOTO Pid_val_input 

5570 ELSE 

5580 PRINT TABXY (1,18) ;Blank$ 

5590 END IF 

5600 GOSUB Write_pid_val 
5610 RETURN 

5620 !!!!!!!!!!!!!! i ! 1 !!!!! 1 ! PRINT SECTION !!!!!!! 1 !!!!!!!!!!!!!!! 1 

5630 Print_header_2 : ! 

5640 PRINT USING "#,9X" 

5650 FOR Z=1 TO 12 

5660 PRINT USING "#,X,DD,XXX" ;Z 

5670 NEXT Z 
5680 PRINT 

5690 PRINT USING , 2X, 4A, 2X" ; "TIME" 

5700 FOR Z=1 TO 12 

5710 PRINT USING "#,X,5A";Sensor$ (Print_order (Z) ) 

5720 NEXT Z 
5730 PRINT 

5740 PRINT USING "#,9X" 

5750 FOR Z=1 TO 12 

5760 PRINT USING "#,5A,X";Unit$(Print_order(Z) ) 

5770 NEXT Z 

5780 PRINT 

5790 PRINT 

5800 Nlines=Nlines+4 

5810 RETURN 

5820 Print_header_l : ! 

5830 PRINT DATE$ (TIMEDATE) 

5840 PRINT 
5850 GOSUB Test_info 
5860 PRINT 
5870 PRINT 

5880 PRINT "* THESE ARE THE PARAMETERS TO BE PRINTED OUT" 

5890 FOR 1=1 TO 12 

5900 PRINT USING »5X, 2D, A, 2X, 16A" ; I , " . " , Chan_label$ (Print order (I)) 

5910 NEXT I - 

5920 PRINT 
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5930 Nlines=Nlines+32 
5940 GOSUB Print_header_2 
5950 RETURN 
5960 Print_data: ! 

5970 PRINTER IS 701 
5980 GOSUB Check 
5990 X=2 

6000 GOSUB Turn_page 

6010 PRINT USING "8A,X, #" ;TIME$ (TIMEDATE) 

6020 FOR Z=1 TO 12 

6030 PRINT USING Display_format$ (Print_order ( Z) ) &" , X, #" ;Dval (Print_order (Z) ) 

6040 NEXT Z 

6050 PRINT 

6060 PRINT 

6070 Nlines=Nlines+2 

6080 PRINTER IS 1 

6090 RETURN 

6100 Turn_page: ! 

6110 IF Nlines+X>Nlines_page THEN 
6120 PRINT CHR$ (12 ) 

6130 Nlines=0 

6140 GOSUB Print_header_2 

6150 END IF 
6160 RETURN 

6170 ! I ! ! ! 1 ! I ! ! 1 ! ! ! 1 U ! J ! ! ! SETPOINT SECTION !!!!!!!!!!!!!!!!!!!!!!! 

6180 Cooldown: ! 

6190 lgnite_ind=2 ! RIG CANNOT RE-IGNITE THUS ELIMINATING ERRONEOUS MESSAGES 

6200 Hot_ind=2 ! DUE TO TC DRIFT 

6210 Prt_int=-3 
6220 Quench_sp=50 . 

6230 GOSUB Quench_out 
6240 Fuel_control$="OPEN" 

6250 Spec_teittp_sp=-999 . 

6260 Fuel_sp=0 . 

6270 GOSUB Fuel_out 

6280 ON KEY 1 LABEL " RIG RESTART '*,10 GOTO Rig_restart 
6290 Back_contr ol $= " OPEN " 

6300 Backjpsi_sp=-99.9 
6310 Back_sp=50. 

6320 GOSUB Back_OUt 

6330 ON KEY 3 LABEL " % BACK VALVE" , 10 GOTO Back_out_sp 
6340 Air_control$="OPEN" 

6350 Air_f low_sp=— 99 . 9 

6360 Air_sp=60. 

6370 GOSUB Air_out 

6380 ON KEY 2 LABEL " % AIR VALVE" , 10 GOTO Air_out_sp 

6390 ON KEY 0 LABEL " PROGRAM END ",10 GOTO Pgm_stop 

6400 PRINTER IS 701 
6410 X=5 

6420 GOSUB Turn_page 

6430 PRINT USING "10X, 25A, 3D.D, 23A" ; "NEW AIR VALVE SETPOINT IS" , Air_sp, "% IN 0 
PEN LOOP CONTROL I" 

6440 PRINT USING "10X, 26A, 3D.D, 23A" ; "NEW FUEL VALVE SETPOINT IS" , Fuel_sp, "% IN 
OPEN LOOP CONTROL!" 

6450 PRINT USING "10X, 27A, 3D.D, 23A" ; "NEW BACK VALVE SETPOINT IS ",Back_sp,"% I 
N OPEN LOOP CONTROL!" 

6460 PRINT USING "10X, 25A, 3D. D, 23A" ; "NEW H20 VALVE SETPOINT IS" , Quench_sp, "% I 
N OPEN LOOP CONTROL!" 

6470 PRINT 

6480 Nlines=Nlines+5 



6490 PRINTER IS 1 

6500 RETURN 

6510 Quench_out_sp : ! 

6520 PRINT TABXY (1, 18) ;Blank$ 

6530 PRINT TABXY (1,18) ; "PRESENT %OUTPUT OF H20 VALVE IS " ; DROUND ( Quench_sp , 4 ) ; 

"%." 

6540 INPUT ’'ENTER NEW %OUTPUT OF H20 VALVE" ,Quench_sp 
6550 Setpoint=Quench_sp 
6560 J=40 

6570 GOSUB Confirm_sp 

6580 GOSUB Quench_out 

6590 PRINT USING "8A, 2X, 25A, 3D. D, 23A" ;TIME$ (TIMEDATE) , "NEW H20 VALVE SETPOINT 
IS", Quench_sp , " % IN OPEN LOOP CONTROL!" 

6600 PRINT 
6610 PRINTER IS 1 

6620 GOTO Restart 

6630 Quench_out: ! 

6640 Quenchout=INT(Quench_sp*100) 

6650 OUTPUT 705 ; "A03 , 1 , "&VAL$ (Quenchout) 

6660 RETURN 
6670 Air_out_sp: ! 

6680 PRINT TABXY (1,18) ;Blank$ 

6690 PRINT TABXY (1,18) ; "PRESENT %OUTPUT OF AIR VALVE IS DROUND (Air_sp, 4) ;"% . 

it 

6700 INPUT "ENTER NEW %OUTPUT OF AIR VALVE" ,Air_sp 

6710 Setpoint=Air_sp 

6720 J=37 

6730 GOSUB Conf irm_sp 
6740 Air_control$="OPEN" 

6750 Air_flow_sp=-99.9 
6760 GOSUB Air_OUt 

6770 PRINT USING "8A, 2X, 25A, 3D. D, 23A" ;TIME$ (TIMEDATE) , "NEW AIR VALVE SETPOINT 
IS",Air_sp, "% IN OPEN LOOP CONTROL!" 

6780 PRINT 
6790 PRINTER IS 1 

6800 GOTO Restart 

6810 Air_flow_sp: ! 

6820 PRINT TABXY (1,18) ,*Blank$ 

6830 PRINT TABXY (1, 18) ; "PRESENT AIR FLOW SETPOINT IS " ;Air_f low_sp; " LBM/HR. ” 
6840 INPUT "ENTER NEW AIR FLOW SETPOINT VALUE" ,Air_flow_sp 
6850 Setpoint=Air_f low_sp 
6860 J=33 

6870 GOSUB Conf irin_sp 

6880 Air_control$="FLOW" 

6890 PRINT USING "8A, 2X, 25A, 3D. D, 31A" ;TIME$ (TIMEDATE) , "NEW AIR FLOW SETPOINT I 
S " , Air_f low_sp , " LBM/HR IN CLOSED LOOP CONTROL!" 

6900 PRINT 

6910 PRINTER IS 1 

6920 GOTO Restart 

6930 Air_out: ! 

6940 Airout=INT(Air_sp*100) 

6950 OUTPUT 705; "A02 , 0 , "&VAL$ (Airout) 

6960 RETURN 

6970 Back_out_sp: ! 

6980 PRINT TABXY (1,18) ;Blank$ 

6990 PRINT TABXY (1, 18) ; "PRESENT %OUTPUT OF BACK PSI VALVE IS "; DROUND ( Back_sp , 
4) 

7000 INPUT "ENTER NEW %OUTPUT OF BACK PSI VALVE” ,Back_sp 
7010 Setpoint=Back_sp 

7020 J=39 



7030 GOSUB Confirm_sp 
7040 Back_contr ol $= " OPEN" 

7050 Back_psi_sp=-99.9 
7060 GOSUB Back_out 

7070 PRINT USING "8A,2X,30A, 3D. D,23A";TIME$ (TIMEDATE) , "NEW BACK PSI VALVE SETP 
OINT IS" ,Back_sp, "% IN OPEN LOOP CONTROL!" 

7080 PRINT 
7090 PRINTER IS 1 

7100 GOTO Restart 

7110 Back_ps i_sp : ! 

7120 PRINT TABXY( 1,18) ;Blank$ 

7130 PRINT TABXY (1,18) ; "PRESENT SYSTEM PRESS SETPOINT IS " ;Back_ psi sp; " PSIA. 

ii 

7140 INPUT "ENTER NEW SYSTEM PRESS SETPOINT VALUE" , Back_psi_sp 
7150 Setpoint=Back_psi_sp 
7160 J=35 

7170 GOSUB Confirm_sp 
7180 Back_control$=" PRESS" 

7190 PRINT USING "8A, 2X, 29A, 3D. D, 29A" ;TIME$ (TIMEDATE) , "NEW SYSTEM PRESS SETPOI 
NT IS " , Back_psi_sp , " PSIA IN CLOSED LOOP CONTROL!" 

7200 PRINT 
7210 PRINTER IS 1 

7220 GOTO Restart 

7230 Back_out: ! 

7240 Backout=INT( (100-Back_sp) *100) ! NORMALLY OPEN (20ltlA FOR 0%=CLOSE) 

7250 OUTPUT 7 0 5 ; " A03 , 0 , " &VAL$ ( Backout ) 

7260 RETURN 
7270 Start fuel: ! 

7280 IgnTte_ind=0 
7290 Fuel_sp=15 . 

7300 GOSUB Fuel_out 

7310 ON KEY 1 LABEL " % FUEL VALVE", 10 GOTO Fuel_out_sp 
7320 PRINTER IS 701 
7330 X=3 

7340 GOSUB Turn_page 

7350 PRINT USING "8A, 2X, 54A" ;TIME$ (TIMEDATE) , "RIG IS READY FOR IGNITION. CURRE 
NT VALVE SETTINGS ARE:" 

7360 PRINT USING 7370; "AIR=" ,Air_sp, "%" , "FUEL=" , Fuel_sp, "%" , "BACK=" , Back_sp, "% 
" , "H20=" , Quench_sp , " % " 

7370 IMAGE 10X, 4A, 3D.D, A, 5X, 5A, 3D.D, A, 5X, 5A, 3D.D,A, 5X, 4A, 3D.D, A 

7380 PRINT 

7390 Nlines=Nlines+3 

7400 GOSUB Print_data 

7410 PRINTER IS 1 

7420 RETURN 

7430 Fuel_out_sp: ! 

7440 PRINT TABXY (1,18) ;Blank$ 

7450 PRINT TABXY (1,18) ; "PRESENT %OUTPUT OF FUEL VALVE IS " ; DROUND ( Fue l_sp , 4 ) ; " 

%." 

7460 INPUT "ENTER NEW %OUTPUT OF FUEL VALVE" , Fue l_sp 
7470 Setpoint=Fuel_sp 
7480 J=38 

7490 GOSUB Confirm_sp 
7500 Fue l_contr o 1 $= " OPEN" 

7510 Spec_temp_sp=-999 . 

7520 GOSUB Fuel_out 

7530 PRINT USING "8A, 2X, 26A, 3D. D, 23A" ;TIME$ (TIMEDATE) , "NEW FUEL VALVE SETPOINT 
IS" , Fuel_sp, "% IN OPEN LOOP CONTROL!" 

7540 PRINT 

7550 PRINTER IS 1 
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7560 GOTO Restart 

7570 Spec_texnp_sp: ! 

7580 PRINT TABXY( 1,18) ;Blank$ 

7590 PRINT TABXY (1, 18) ; "PRESENT SPEC. TEMP SETPOINT IS ";Spec temp sp;" DEG F. 
n _ 

7600 INPUT "ENTER NEW SPEC. TEMP SETPOINT VALUE" , Spec_temp_sp 
7610 Setpoint=Spec_temp_sp 

7620 J=34 

7630 gosub Confirm_sp 

7640 Fue l_contr ol $=" TEMP " 

7650 PRINT USING "8A, 2X, 27A, 4D, 26A" ;TIME$ (TIMEDATE) , "NEW FLAME TEMP SETPOINT I 
S " , Spec_temp_sp , " F IN CLOSED LOOP CONTROL l " 

7660 PRINT 

7670 PRINTER IS 1 

7680 GOTO Restart 

7690 Fuel_out: ! 

7700 Fue lout=INT ( Fuel_sp* 1 00) 

7710 OUTPUT 705; "A02 , 1 , " &VAL$ ( Fuelout ) 

7720 RETURN 

7730 Confirm_sp: ! 

7740 IF Setpoint>Hi_lim(J) THEN Setpoint=Hi_lim(J) 

7750 IF Setpoint<Low_lim(J) THEN Setpoint=Low_lim( J) 

7760 PRINT TABXY (1,18) ;Blank$ 

7770 PRINTER IS 701 

7780 X=2 

7790 GOSUB Turn_page 

7800 Nlines=Nlines+2 

7810 RETURN 

7820 ! ! !! ! ! ! i ! ! ! ! !! !! ! 1 ! 1 11 ! MISC SUBROUTINES Hi!!!!!!!!!!!!!!!!!!! 

7830 Read_pid_val : ! 

7840 ASSIGN @Pid TO "PID_PARM" 

7850 ENTER §Pid;P(*) 

7860 ASSIGN @Pid TO * 

7870 RETURN 

7880 Write_pid_val: ! 

7890 ASSIGN @Pid TO "PID_PARM" 

7900 OUTPUT @Pid;P(*) 

7910 ASSIGN @Pid TO * 

7920 RETURN 

7930 Read_common: ! 

7940 ASSIGN €Path_l TO "TEST_LOG" 

7950 ENTER @Path_l;Title$ , Fuel$ , Target_temp , Target_time$ , Elap_time$ 

7960 ENTER ®I>ath_l;Specimen$ (*) , Install$ (*) ,Tot_time$ (*) 

7970 ASSIGN §Path_l TO * 

7980 RETURN 

7990 Write_common: ! 

8000 ASSIGN @Path_l TO "TEST_LOG" 

8010 OUTPUT @Path_l ;Title$ , Fuel$ , Target_temp , Target_time$ , Elap_time$ 

8020 OUTPUT §Path_l;Specimen$ (*) , Install$ (*) ,Tot_time$ (*) 

8030 ASSIGN 6Path_l TO * 

8040 RETURN 

8050 Set_prt_int: ! 

8060 INPUT "ENTER NEW PRINT INTERVAL IN SECONDS (-l=15min, -2=30min, OR -3=0FF 
) " , Prt_int / 

8070 IF Prt_int=-1 THEN Prt_int=900 

8080 IF Prt_int=-2 THEN Prt_int=1800 

8090 GOTO Restart 

8100 Spec_update: ! 

8110 FOR 1=1 TO 4 

8120 IF Specimen$(I)="EMPTY" THEN GOTO 8180 
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8130 Minutes=(VAL(Tot_time$ (I) [ 1 , 2 ] ) +VAL(Run time$[l, 2] ) ) *60+VAL (Tot tixne$(I 

) [7 , 8 ] ) +VAL ( Run_t ime$ [7,8]) 

8140 Hours=Minutes DIV 60 

8150 Minutes=Minutes MOD 60 

8160 Tot_time$(I) [l,2]=VAL$(Hours) 

8170 Tot_time$ (I) [7, 8]=VAL$ (Minutes) 

8180 NEXT I 

8190 Minutes® (VAL (Elap_time$ [1,2]) +VAL (Run time$ [1,2])) *60+VAL ( Elap t ime$ [7,8] 

) +VAL (Run_time$ [7,8]) 

8200 Hours=Minutes DIV 60 
8210 Minutes=Minutes MOD 60 
8220 Elap_time$[l,2]=VAL$ (Hours) 

8230 Elap_time$ [7,8] =VAL$ (Minutes ) 

8240 RETURN 
8250 Summary: ! 

8260 PRINTER IS 701 

8270 PRINT CHR$ ( 12 ) 

8280 PRINT 
8290 PRINT 

8300 PRINT "*************** RUN SUMMARY ******** 

*******" 


8310 

8320 

8330 

8340 

8350 

8360 

8370 

8380 

8390 

8400 

8410 

8420 

8430 

8440 

8450 

8460 

8470 

8480 

8490 

8500 


PRINT " SPL HOT CORROSION TEST FACILITY” 

PRINT 

PRINT DATE$ (TIMEDATE) 

PRINT "CURRENT TEST: "&Title$ 

PRINT "FUEL TYPE: "&Fuel$ 

PRINT "TARGET TEMP IN DEG F: "&VAL$ (Target_temp) 

PRINT "TOTAL TIME REQUESTED: "&Target_time$ 

PRINT " TIME COMPLETED: "&Elap_time$ 

PRINT 

PRINT USING "12A,11A"; "TODAYS RUN: ",Run_time$ 

PRINT USING "12A, 3D. D, 8A" ; "FUEL USAGE: ",Fuel gal," GALLONS" 
PRINT 

PRINT "AS OF TODAYS RUN:" 

PRINT 

GOSUB 1160 
PRINT 

PRINT "COMMENTS:" 

PRINTER IS 1 
RETURN 

!!! 1 1 !!!!!!!!!!! 1 !! I VALVE CONTROL SETUP ! !! !!!!!!!!! II ! ! i ! 1 1 ! ! 


8510 Control_setup: 


8520 

8530 

8540 

8550 

8560 

8570 

8580 

8590 

8600 

8610 

8620 

8630 

8640 

8650 

8660 

8670 

8680 

8690 


GOSUB 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


Clearscreen 

"CURRENT VALVE CONTROL OPTIONS:" 


"1) FUEL- MANUAL CONTROL OF VALVE OUTPUT" 
"2) FUEL- CLOSED LOOP WITH SPECIMEN TEMP" 

"3) AIR- MANUAL CONTROL OF VALVE OUTPUT" 

"4) AIR- CLOSED LOOP WITH AIR FLOW RATE" 

"5) BACK PSI- MANUAL CNTRL OF VALVE OUTPUT" 
"6) BACK PSI- CLOSED LOOP W/ SYSTEM PRESS" 

"7) WATER- MANUAL CONTROL OF VALVE OUTPUT" 
"8) WATER- CLOSED LOOP WITH EXIT AIR TEMP" 

"ENTER (0) TO RETURN" 


* 


* 


* 
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8700 

8710 

8720 

8730 

8740 

8750 

8760 

8770 

8780 

8790 

8800 

8810 

8820 

8830 

8840 

8850 

8860 


INPUT "ENTER YOUR CHOICE" , Cntrl_ind 
SELECT Cntrl_ind 
CASE 0 

GOTO Restart 
CASE 1 

IF lgnite_ind=2 THEN 
BEEP 

DISP "FUEL CONTROL CURRENTLY NOT AVAILABLE" 

WAIT 1 

GOTO Control_setup 
END IF 

ON KEY 1 LABEL " % FUEL VALVE", 10 GOTO Fuel_OUt_sp 
GOTO Fuel_out_sp 
CASE 2 

IF Ignite_ind=2 THEN 
BEEP 

DISP "FUEL CONTROL CURRENTLY NOT AVAILABLE" 


8870 WAIT 1 

8880 GOTO Control_setup 

8890 END IF 

8900 ON KEY 1 LABEL " SPEC_TEMP_SP" , 10 GOTO Spec_temp_sp 

8910 GOTO Spec_temp_sp 

8920 CASE 3 

8930 ON KEY 2 LABEL " % AIR VALVE" ,10 GOTO Air_out_sp 

8940 GOTO Air_OUt_sp 

8950 CASE 4 

8960 ON KEY 2 LABEL "AIR_FLOW_SP ",10 GOTO Air_floW_sp 
8970 GOTO Air_flow_sp 

8980 CASE 7 

8990 GOTO Quench_out_sp 

9000 CASE 8 

9010 BEEP 

9020 DISP "OPTION CURRENTLY NOT PROGRAMMED" 

9030 WAIT 1 

9040 GOTO Control_setup 

9050 CASE 5 

9060 ON KEY 3 LABEL " % BACK VALVE", 10 GOTO Back_out_sp 

9070 GOTO Back_out_sp 

9080 CASE 6 

9090 ON KEY 3 LABEL " SYS_PSI_SP ",10 GOTO Back_psi_sp 

9100 GOTO Back_psi_sp 

9110 CASE ELSE 

9120 GOTO Control_setup 

9130 END SELECT 

9140 ! ! ! M 2 2 i II II ! i ! II II SETUP STRINGS & ARRAYS !!!!!!! 11 !!!!!!!!! 1 ! 

9150 Build_string: ! 

9160 L$=" " 

9170 FOR 1=1 TO 12 
9180 N=Screen(I, 1) 

9190 J=Screen(I,2) 

9200 OUTPUT A$ USING Display _format$ (N) &" , #" ;Dval (N) 

9210 OUTPUT B$ USING Display_format$ ( J) &" , #" ;Dval ( J) 

9220 Disp$ (I) =Chan_label$ (N) [ 1, 14] &L$ [1, 10] &A$ [1, 5] &L$ [ 1, 3 ] &Unit$ (N) [1,5]&L$ 

[1, 6] &Chan_label$ (J) [l,14]&L$[l,10]&B$[l,5]&L$[l,3]&Unit$(J) [1,5] 

9230 NEXT I 

9240 RETURN 

9250 Read_coef: ! 

9260 RESTORE 9300 

9270 FOR 1=1 TO 13 

9280 READ K(I) 
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9290 

9300 

9310 

9320 

9330 

9340 

9350 

9360 

9370 

9380 

9390 

9400 

9410 

9420 

9430 

9440 

9450 

9460 

9470 

9480 

9490 

9500 

9510 

9520 

9530 

9540 

9550 

9560 

9570 

9580 

9590 

9600 

9610 

9620 

9630 

9640 

9650 

9660 

9670 

9680 

9690 

9700 

9710 

9720 

9730 

9740 

9750 

9760 

9770 

9780 

9790 

9800 

9810 

9820 

9830 

9840 

9850 

9860 

9870 

9880 


NEXT I 

DATA —8 . 16774E-7 , 3 ♦ 964E-4 , 1 • 6E— 8 

DATA -5 • IE-2 , 2 . 48503E4 , -3 . 82662E5 , 9 . 9661057E7 , -1 . 0820624E10 
DATA 6 . 0392855E11, -1 . 9 109 El 3 , 3 . 4782347E14 , -3 . 3991028E15 , 1 . 3 82 85 14 El 6 
FOR 1=1 TO 13 
READ R (I) 

NEXT I 

DATA -2 . 11284E-7 , 5 . 334E-5 , 1 . 2E-8 , 4 . 8343651E1 

DATA 1.109827E-l,-2.435389E-6, 4.51644 88E-11, 1.8172 612E-16, 0, 0, 0,0,0 
RETURN 

Read_label_lim: i 

RESTORE 9450 
FOR 1=1 TO 40 

READ Chan_ label $ (I) ,Unit$ (I) , Display_f ormat$ (I) , Sensor$(I) 

READ Hi_lim(I) ,Low_lim(I) 

i SLOT #0 


R 

R 

R 

R 

R 

R 


NEXT 

i 







DATA 

"INLET 

AIR TEMP" 

, "DEG 

F»f 

, "DDDD. " 

, "AS112" 

, 500 , 0 

DATA 

" PREHEATER-WEST " 

, "DEG 

pn 

, "DDDD. " 

"TP1 •' 

,650,250 

DATA 

"EXIT 

TEMP " 

, "DEG 

pit 

, "DDDD. " 

, "TP130" 

,400,0 

DATA 

"PREHEATER- API" 

, "DEG 

pn 

, "DDDD. " 

, "K— 4 " 

,650,250 

DATA 

"COMBUSTOR TEMP" 

, "DEG 

p« 

, "DDDD. " 

, "TP136" 

,2200,500 

DATA 

11 SPEC, 

TEMP #1 " 

, "DEG 

F« 

, "DDDD. " 

, "TP100" 

,2500,500 

DATA 

"SPEC. 

TEMP #2 " 

, "DEG 

F” 

, "DDDD. " 

, »'TP2 " 

,2500,0 

DATA 

"COMB 

TEMP- API" 

, "DEG 

pii 

, "DDDD. " 

, "R-4 " 

,2500,500 

DATA 

"SPARE 

TYPE R" 

, "DEG 

F« 

, "DDDD . " 

, "R-5 " 

,3200,0 

DATA 

"SPARE 

TYPE R" 

, "DEG 

pti 

, "DDDD . " 

, "R-6 " 

,3200,0 

DATA 

"EXIT 

TEMP- API" 

, "DEG 

F” 

, "DDDD. " 

, "K-5 " 

,400,0 

DATA 

ii 

it 

n 

ii 

, "DDDD. " 

n it 

,3200,0 

DATA 

ti 

it 

•t 

n 

, "DDDD . " 

n n 

,3200,0 

DATA 

91 

ii 

n 

n 

, "DDDD. " 

ii ii 

,3200,0 

DATA 

91 

it 

•i 

•i 

, "DDDD . " 

ii ii 

,3200,0 

DATA 

99 

ii 

•i 

ii 

, "DDDD. " 

n ii 

,3200,0 

DATA 

99 

ii 

n 

•i 

, "DDDD. " 

ti ii 

,3200,0 

DATA 

19 

ii 

ii 

it 

, "DDDD. " 

n n 

,3200,0 

DATA 

99 

it 

ii 

ii 

, "DDDD. " 

•i ii 

,3200,0 

DATA 

"TC REF. VOLT " 

•• 

n 

, "DDDD. " 

'ii REF ii 

,3200,0 

DATA 

"INLET 

PRESSURE" 

, "PSIA " 

, "DDD.D" 

, "AS114" 

,200,0 

DATA 

"VENTURI DP " 

, "PSID " 

, "DD. DD" 

, "AS116" 

,5,0 

DATA 

"FUEL 

FLOW RATE" 

. "GPH 

ii 

, "DD.DD" 

, "FC105" 

,6, -6 

DATA 

"FUEL 

PRESSURE" 

, "PSIG " 

, "DDD.D" 

, "FC107" 

,500,0 

DATA 

"COMB 

PRESSURE" 

, "PSIA " 

, "DDD.D" 

, "TP137" 

,120,0 

DATA 

"SYS. 

PRESSURE" 

, "PSIA " 

, "DDD.D" 

, "TP104" 

,120,0 

DATA 

"H20 

PRESSURE" 

, "PSIG " 

, "DDD.D" 

, "WD107" 

,200,0 

DATA 

"H20 

FLOW RATE" 

, "GPM 

ii 

, "DD.DD" 

, "WD112" 

, .75, .02 

DATA 

"SALT 

LOAD CELL" 

."VOLT " 

, "D.DDD" 

, "SALT " 

,10,0 

DATA 

it 

•1 

II 

/ 

ii 

, "DDD.D" 

n it 

,100,0 

DATA 

"AIR 

FLOW RATE" 

, "LB/HR" 

, "DDD.D" 

Mair" 

,800,50 

DATA 

"F/A 

RATIO " 

If 

t 

ii 

, "D.DDD" 

F/A « 

,.2,0 

DATA 

"AIR 

FLOW SP" 

, "LB/ HR" 

, "DDD.D" 

,"SP #1" 

,800,50 

DATA 

"SPEC. 

TEMP SP" 

, "DEG 


, "DDDD . " 

,"SP #2" 

,3000,100 

DATA 

"SYSTEM PSI SP" 

••PSIA " 

, "DDD.D" 

,"SP #3" 

,120,0 

DATA 

"EXIT 

TEMP SP" 

, ”DEG 

F" 

, "DDDD. " 

,"SP #4" 

,350,0 

DATA 

"% AIR VALVE " 

•* % 

ii 

, "DDD.D" 

, "AS111" 

,100,0 

DATA 

"% FUEL VALVE " 

,« % 

ii 

, "DDD.D" 

, "FC104" 

,100,0 

DATA 

"% BACK VALVE " 

," % 

it 

, "DDD.D" 

, "TP113" 

,100,0 

DATA 

"% H20 VALVE " 

,•• % 

ii 

, "DDD.D" 

, "WD109" 

,100,0 

RETURN 







:reen_ 

setup : 

1 







SLOT #1 


CALCULATED 


RESTORE 9930 
FOR 1=1 TO 12 
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9890 FOR J=1 TO 2 

9900 READ Screen (I, J) 

9910 NEXT J 

9920 NEXT I 

9930 DATA 21,22,31,1,24,2,23,8,32,6,25,7,26,11,27,28,33,37,34,38,35,39,36,40 

9940 RETURN 

9950 !!!!!!!!!!!!!!!!!!!! UTILITY SUBROUTINES !!!!!! i ! i !!!!!!!!!!! 1 1 

9960 End_sequence : ! 

9970 PRINT USING "10X, 28 A" ; "SHUTDOWN SEQUENCE INITIATED." 

9980 PRINT 
9990 Nlines=Nlines+3 
10000 PRINTER IS 1 
10010 GOSUB Cooldown 
10020 GOSUB Print_data 
10030 GOSUB Spec_update 
10040 GOSUB Write_common 
10050 GOSUB Summary 
10060 RETURN 
10070 Restart: ! 

10080 GOSUB Fuel_count 
10090 OUTPUT 705,*«VS1« 

10100 OUTPUT 705; "VT3" 

10110 GOTO scan 
10120 Rig_restart: ! 

10130 PRINTER IS 701 
10140 PRINT CHR$ (12) 

10150 Nlines=0 
10160 GOSUB Print_header_l 
10170 PRINTER IS 1 
10180 GOTO lnit_variables 
10190 Clearscreen: ! 

10200 OUTPUT 2 USING "#,B";255,75 
10210 RETURN 
10220 Invalid: ! 

10230 BEEP 
10240 DISP Blank$ 

10250 DISP "NOT VALID KEY" 

10260 WAIT .5 
10270 RETURN 
10280 Shutdown: ! 

10290 BEEP 

10300 LINPUT "DO YOU REALLY WISH TO SHUTDOWN? (Y/N) " ,Ans$ 

10310 IF Ans$="Y" THEN 
10320 PRINTER IS 701 

10330 X=3 

10340 GOSUB Turn_page 

10350 PRINT USING "8A, 2X, 17A" ;TIME$ (TIMEDATE) , "OPERATOR REQUEST!" 

10360 GOSUB End_sequence 

10370 GOTO Restart 

10380 ELSE 
10390 GOTO Restart 

10400 END IF 
10410 Pgm_stop: ! 

10420 BEEP 

10430 GOSUB Clearscreen 

10440 PRINT "THIS WILL RETURN YOU TO THE MAIN MENU." 

10450 PRINT 

10460 PRINT "RIG SHOULD BE COOLED DOWN BEFORE PROCEEDING!" 

10470 LINPUT "DO YOU WISH TO CONTINUE? (Y/N)",Ans$ 

10480 IF Ans$="Y" THEN 


31 



10490 

Air_sp=0 . 

10500 

GOSUB Air_OUt 

10510 

Back_sp=100. 

10520 

GOSUB Back_out 

10530 

Quench_sp=0 . 

10540 

GOSUB Quench out 

10550 

DISP M PROGRAM ENDS” 

10560 

BEEP 500,3 

10570 

GOTO Main menu keys 

10580 

ELSE 

10590 

GOTO Restart 

10600 

END IF 

10610 

STOP 

10620 

END 


Table I. - Dew Point 
Na ( ppm) 

0.5 

1.0 

2.0 

4.0 


of Na 2 S0 4 for Given 
1 atm Dew Pt. 
920 °C (1688°F) 
938 °C (1720°F) 
954 °C ( 1749 °F) 
970°C ( 1778 °F) 


Sodium Concentrations 
4 atm Dew Pt. 
981°C (1798°F) 
1001°C (1834°F) 
1020 °C ( 1868 °F) 
1038 °C ( 1900°F) 


Table II. - Safety Upper/Lower Limits on Critical Parameters 
Pa-ramne-her Upper limit Lower limit 

Preheated temperature 370°C ( 700°F) 

Combustor temperature 1400°C (2550°F) 

Exhaust temperature 200°C ( 400°F) 

System pressure 600 kPa 


120 °C (250°F) 
420°C (800°F) 
none 
none 
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Figure 1 . — SEM views of glassy products on SiC burner rig sample; (a) the entire sample (bar = 1 mm), (b) an enlargement of products 
near surface (bar = 1 00 p.m); and (c) the underside of a spalled section (bar = 100 p,m). 


Leading edge ^ Sample width ► Trailing edge 



Figure 2. — Surface views of corroded SiC (products removed by HF); (a) the entire sample (bar = 1 00 p,m), (b) enlargement of leading 
edge region (bar = 1 00 y,m), (c) enlargement of trailing edge region (bar = 1 00 jjim). 
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Figure 3. — Hot corrosion test facility at the NASA Lewis Research 
Center. 


VENTURI 
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Test Temperature (F) 




Figure 6.— HCTF combustor and test section. 
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SALT SOLUTION SUPPLY — 
HOT GASES W/CORROSIVE PARTICLES 


ATOMIZING AIR —i 


PREHEATED COMBUSTION AIR SUPPLY -j 


CERAMIC FIBER 
INSULATION 
PACKING -| 


CONVERGENCE NOZZLE— \ 
FLAME TUBE— \ 



-TEST SPECIMEN 
LAVA SPECIMEN HOLDER 


COMBUSTION 

\ » j ' PRESSURE 

1 ! / TAP 

\\ j L PREHEATED AIR 

l ( » i THERMOCOUPLE 

\ 1 1 L FUEL SUPPLY 

\ li 

\ i ^—CO-ROTATE DOME SWIRLER 

\ l 

\ L FUEL NOZZLE 

\ 

^—PRESSURIZED FUEL SPRAY 
^—SWIRLING COMBUSTION AIR 
u COMBUSTION THERMOCOUPLE 


TEST SECTION THERMOCOUPLE 

LAVA SPECIMEN GRIPS 


Figure 7. — Components of combustor and test section. 



C-92-6667 


Figure 8. — Assembly of test specimens, lava holder, and flame 
tubes. 



Figure 9. — HCTF control room with safety interlocks, computer 
and printer. 
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SPL HOT CORROSION TEST FACILITY 
******* RIG PARAMETERS ******* 


INLEI 

’ PRESSURE 

79.7 

PSIA 

VENTURI DP 

.30 

PSID 

AIR 

FLOW RATE 

323.2 

LB/HR 

INLET AIR TEMP 

65. 

DES F 

FUEL 

PRESSURE 

171 .7 

PSIG 

PREHEATER-WEST 

489. 

DEG F 

FUEL 

FLOW RATE 

1 .25 

GPH 

COMB TEMP- API 

1427. 

DEG F 

F/A 

RATIO 

.026 


SPEC. TEMP 41 

1833. 

DEG F 

COMB 

PRESSURE 

60.8 

PSIA 

SPEC. TEMP 42 

1741 . 

DEG F 

SYS. 

PRESSURE 

60.1 

PSIA 

EXIT TEMP- API 

195. 

DEG F 

H20 

PRESSURE 

109.5 

PSIG 

H20 FLOW RATE 

.76 

GPM 



******* CONTROL 

SECTION ****** 



AIR 

FLOW SP 

325.0 

LB/HR 

% AIR VALVE 

54.7 

% 

SPEC. 

TEMP SP 

1832. 

DEG F 

% FUEL VALVE 

23.1 

% 

SYSTEM PS I SP 

60.0 

PSIA 

% BACK VALVE 

53.8 

% 

EXIT 

TEMP SP 

-999. 

DEG F 

% H20 VALVE 

95.0 

% 


15:03:57 


CYCLE® 2.22 


SHUTJ30WN I SPEC_TEMP_SP IAIR_FLOU„SP 
SET INTERVALS 1 1 SET PID 


SYS PSI_SP 
SET CONTROL 


% H20 VALVE 

PRINT DUMP 


Figure 10.— Computer's data acquisition and control display screen. 


SPL HOT CORROSION TEST FACILITY - CURRENT TEST SETUP ‘ 

TEST TYPE: CORROSION 
FUEL TYPE: JET A 
TARGET TEMP IN DEG F: 1832 
CURRENT TEST TIME REQUEST: 40HRS ,0 MIN 
TIME ELAPSED: 25HRS,30MIN 


SPEC NAME: 
INSTALLED: 
TEST TIME: 


POSITION #1 

SPEC. #1 
08 DEC 1992 
25HRS ,30MIN 


POSITION #2 

SPEC. $2 
08 DEC 1992 
25HRS ,30MIN 


POSITION #3 

SPEC. #3 
25 NOV 1992 
65HRS ,30MIN 


POSITION U 

SPEC. #4 
25 NOV 1992 
65HRS ,30MIN 


ENTER INDEX OF INFORMATION TO BE CHANGED 
( 1 =TE5T PARAMETERS 2=SPECIMEN DATA 0®EXIT) 


Figure 11.— Test setup and documentation utility. 
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